home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Font Smoothing 2.xpl < prev    next >
Text File  |  2003-11-27  |  2KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Interface\Font Smooting/Clear Type"
  5. "NAME"="ClearType Gamma Correction"
  6. "VERSION"="2.01"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0000011"
  9. "TEXT 1"="Contrast"
  10. "DESCRIPTION 1"="When using "ClearType" as the font smooting default, you can change the contrast (gamma correction) of it here."
  11. "DESCRIPTION 2"="By default, Windows XP uses a default contrast of 1400, but depending on your LCD display, decreasing this value to 900-1100 might have a better result. A good value for normal LCDs is "1000"."
  12. "DESCRIPTION 3"="If you plan to change these settings often, e.g. if you switch between a normal monitor and a LCD, we suggest the software "ClearTweak" which is available from http://www.ioisland.com/cleartweak/ . It allows you to change the ClearType settings and see the effect immediately."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18. sP1="HKCU\Control Panel\Desktop\FontSmoothing"     'STR!
  19. sP2="HKCU\Control Panel\Desktop\FontSmoothingType" 'DW!
  20.  
  21. sV1="HKCU\Control Panel\Desktop\FontSmoothingGamma"
  22.  
  23. Sub Plugin_Initialize 
  24.  i1=RegReadValue(sP1)
  25.  i2=RegReadValue(sP2)
  26.  if i1=2 and i2=2 then
  27.     i=RegReadValue(sV1)
  28.     Call SetUIElement(1,i)
  29.  else
  30.     Call Disable()
  31.     Call MsgError("This value can only be changed if you have activated ClearType, which is currently deactivated. Therefore this plug-in is deactivated as well.")
  32.  end if
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  i=GetUIElement(1)
  40.  
  41.  if len(i)=0 then
  42.     Call MsgError("Unable to update setting - please enter a numeric value !")
  43.  else
  44.     Call RegWriteValue(sV1,i,2)
  45.     Call Restart()
  46.  end if
  47. End Sub
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.